home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / isconn_1 / codewind.frm < prev    next >
Text File  |  1999-08-31  |  3KB  |  97 lines
  1. VERSION 5.00
  2. Begin VB.Form Form4 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "Code Window"
  5.    ClientHeight    =   3990
  6.    ClientLeft      =   45
  7.    ClientTop       =   285
  8.    ClientWidth     =   6165
  9.    LinkTopic       =   "Form4"
  10.    MaxButton       =   0   'False
  11.    MDIChild        =   -1  'True
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   3990
  14.    ScaleWidth      =   6165
  15.    ShowInTaskbar   =   0   'False
  16.    Begin VB.CommandButton Command1 
  17.       Caption         =   "Ok"
  18.       Height          =   375
  19.       Left            =   5040
  20.       TabIndex        =   6
  21.       Top             =   120
  22.       Width           =   975
  23.    End
  24.    Begin VB.TextBox Text2 
  25.       Height          =   2655
  26.       Left            =   0
  27.       MultiLine       =   -1  'True
  28.       ScrollBars      =   3  'Both
  29.       TabIndex        =   4
  30.       Top             =   1320
  31.       Width           =   6135
  32.    End
  33.    Begin VB.ComboBox Combo1 
  34.       Height          =   315
  35.       Left            =   1200
  36.       TabIndex        =   3
  37.       Text            =   "Combo1"
  38.       Top             =   600
  39.       Width           =   3375
  40.    End
  41.    Begin VB.TextBox Text1 
  42.       Height          =   285
  43.       Left            =   1200
  44.       Locked          =   -1  'True
  45.       TabIndex        =   1
  46.       Text            =   "Text1"
  47.       Top             =   120
  48.       Width           =   3375
  49.    End
  50.    Begin VB.Label Label3 
  51.       AutoSize        =   -1  'True
  52.       BackStyle       =   0  'Transparent
  53.       Caption         =   "Vb code"
  54.       Height          =   195
  55.       Left            =   120
  56.       TabIndex        =   5
  57.       Top             =   1080
  58.       Width           =   600
  59.    End
  60.    Begin VB.Label Label2 
  61.       AutoSize        =   -1  'True
  62.       BackStyle       =   0  'Transparent
  63.       Caption         =   "Hyperlink:"
  64.       Height          =   195
  65.       Left            =   120
  66.       TabIndex        =   2
  67.       Top             =   600
  68.       Width           =   705
  69.    End
  70.    Begin VB.Label Label1 
  71.       AutoSize        =   -1  'True
  72.       BackStyle       =   0  'Transparent
  73.       Caption         =   "Control Name:"
  74.       Height          =   195
  75.       Left            =   120
  76.       TabIndex        =   0
  77.       Top             =   120
  78.       Width           =   1005
  79.    End
  80. End
  81. Attribute VB_Name = "Form4"
  82. Attribute VB_GlobalNameSpace = False
  83. Attribute VB_Creatable = False
  84. Attribute VB_PredeclaredId = True
  85. Attribute VB_Exposed = False
  86. Private Sub Command1_Click()
  87. If Me.Tag = "label" Then
  88. tcde(Text1.Tag) = Text2.Text
  89. Unload Me
  90. End If
  91. If Me.Tag = "image" Then
  92. icde(Text1.Tag) = Text2.Text
  93. Unload Me
  94. End If
  95. End Sub
  96.  
  97.